<%
Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject")
Set MyFolders=MyDirectory.GetFolder(Server.MapPath("/asp"))
For each folderfound in MyFolders.SubFolders
%>

<a href="<% =folderfound.Name %>" ><% =folderfound.Name %></a><br>
<%
Next
%>